*O c�digo a seguir possibilita a reprodu��o dos resultados da an�lise de sobreviv�ncia e dos comandos descritivos
*O leitor poder� utilizar diretamente a base salva em STATA 
*Ou poder� utilizar a base em Excel 
*A base de dados utilizada refere-se ao arquivo "BD_survive - recortada.xls" encaminhado para a Brazilian Political Science Review 
*Setup no STATA para utiliza��o da fun��o de an�lise de sobreviv�ncia
stset tdias, failure(event==1)
*Figure 2 � Probability of ministerial survival by presidential mandate (1995-2014)
sts graph, by(pr)
*Figure 3 � Reasons for presidential appointments ending (1995-2014)
graph pie, over (motivo_saida_agregado)
*Figure 4 - Survival curves for Ministerial Politicization Index (Kaplan-Meier)
sts graph, by(indmin)
*Figure 5 - Survival curves for areas of government (Kaplan-Meier)
sts graph, by(cluster_2014)
*Figure 6 - Survival Curves for Media Scandals (Kaplan-Meier)
sts graph, by(escandalo_midia)
* Instala��o do pacote 'outreg' 
ssc install outreg
* Table 3 � Survival analysis for dismissal of minister before the end of the term (coefficients of the Weibull distribution)
streg indmin partidoPR aliados ideo_dif1 escandalo_midia protestos_midia, dist (weibul) time
outreg, replace se starlevels(10 5 1) varlabels sigsymbols(*,**,***) summstat(N\N_fail\chi2\p\r2_p) summtitle(N\Falhas\LR chi2\Prob > chi2)
streg indmin partidoPR aliados ideo_dif1 escandalo_midia cluster_2014_1 cluster_2014_2 cluster_2014_3 protestos_midia, dist (weibul) time
outreg, merge se starlevels(10 5 1) varlabels sigsymbols(*,**,***) summstat(N\N_fail\chi2\p\r2_p) summtitle(N\Falhas\LR chi2\Prob > chi2)
streg indmin partidoPR aliados ideo_dif1 escandalo_midia cluster_2014_1 cluster_2014_2 cluster_2014_3 protestos_midia familia_politico amigo_presidente clientela_ministerio, dist (weibul) time
outreg, merge se starlevels(10 5 1) varlabels sigsymbols(*,**,***) summstat(N\N_fail\chi2\p\r2_p) summtitle(N\Falhas\LR chi2\Prob > chi2)
streg indmin partidoPR aliados ideo_dif1 escandalo_midia cluster_2014_1 cluster_2014_2 cluster_2014_3 protestos_midia familia_politico amigo_presidente clientela_ministerio sexo negro  idade_posse sp, dist (weibul) time
outreg, merge se starlevels(10 5 1) varlabels sigsymbols(*,**,***) summstat(N\N_fail\chi2\p\r2_p) summtitle(N\Falhas\LR chi2\Prob > chi2)
streg indmin partidoPR aliados ideo_dif1 escandalo_midia cluster_2014_1 cluster_2014_2 cluster_2014_3 protestos_midia familia_politico amigo_presidente clientela_ministerio sexo negro  idade_posse sp gab_inicial popularidade3m desemprego_pnad_sem_ajust3m inflacao_ipca3m, dist (weibul) time
outreg, merge se starlevels(10 5 1) varlabels sigsymbols(*,**,***) summstat(N\N_fail\chi2\p\r2_p) summtitle(N\Falhas\LR chi2\Prob > chi2)
streg indmin partidoPR aliados c.ideo_dif1##i.escandalo_midia cluster_2014_1 cluster_2014_2 cluster_2014_3 protestos_midia familia_politico amigo_presidente clientela_ministerio sexo negro  idade_posse sp gab_inicial popularidade3m desemprego_pnad_sem_ajust3m inflacao_ipca3m, dist (weibul) time
outreg, merge se starlevels(10 5 1) varlabels sigsymbols(*,**,***) summstat(N\N_fail\chi2\p\r2_p) summtitle(N\Falhas\LR chi2\Prob > chi2)
* Instala��o do pacote 'mfpi'
ssc install mfpi 
* Figure 7 � Effect of ideological differences on the survival of ministers subjected to media scandals, following model 6 (Weibull)
mfpi, linear (ideo_dif1) with ( escandalo_midia ) gendiff (d) : streg indmin partidoPR aliados cluster_2014_1 cluster_2014_2 cluster_2014_3 protestos_midia familia_politico amigo_presidente clientela_ministerio sexo negro  idade_posse sp gab_inicial popularidade3m desemprego_pnad_sem_ajust3m inflacao_ipca3m, dist (weibul) time
mfpi_plot ideo_dif1

